home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / OVRCALL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  412b  |  23 lines

  1. Unit OvrCall;
  2. {$O+,F+}
  3.  
  4. Interface
  5.  
  6. Uses
  7.     Overlay,configrt;
  8.  
  9. Implementation
  10. Begin
  11.   readconfig;
  12.   OvrInit('VISION.OVR');
  13.   if configset.usems then ovrinitems;
  14.   if (ovrresult<>ovrok) and configset.usems then begin
  15.     writeln('Not enough EMS to put Overlay into memory!');
  16.     halt(4);
  17.   end;
  18.     If OvrResult <> OvrOK then
  19.         Begin
  20.             WriteLn('Overlay file not found.');
  21.             Halt(4);
  22.         End;
  23. End.